home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / dev / src / Rkm_asm.lha / Assembly_Codes / OS_Sources / Intuition / Old-Menu.s < prev    next >
Text File  |  1992-09-02  |  16KB  |  758 lines
  1.  
  2.  * Although this example uses the Old Menu look it can be used in conjunction
  3.  * with Gadtools for example. You do not have to have the New Menu look.
  4.  * Personally. I like to program this kind of menu, as opposed to GadTools
  5.  * menu, because it is nice to be able to be in full manipulative control
  6.  * (with ease) of a menu structure/system.
  7.  
  8.     INCDIR    WORK:Include/
  9.  
  10.     INCLUDE    exec/exec_lib.i
  11.     INCLUDE    exec/memory.i
  12.     INCLUDE    intuition/intuition_lib.i
  13.     INCLUDE    intuition/intuition.i
  14.     INCLUDE dos/dos_lib.i
  15.     INCLUDE dos/dos.i
  16.     INCLUDE dos/dosextens.i
  17.     INCLUDE    graphics/graphics_lib.i
  18.     INCLUDE    graphics/text.i
  19.     INCLUDE    workbench/icon_lib.i
  20.     INCLUDE    workbench/startup.i
  21.     INCLUDE    workbench/workbench.i
  22.  
  23. LIB_VER        EQU    39
  24. TRUE        EQU    -1
  25. FALSE        EQU    0
  26.  
  27.     lea    membuf(pc),a4
  28.  
  29.  * membuf (Memory Buffer) is set-up so that this code can be
  30.  * position-independant. The memory buffer contains the following
  31.  * addresses and their data:
  32.  *
  33.  *   0  Startup Return Message
  34.  *   4  _DOSBase
  35.  *   8  _IntuitionBase
  36.  *  12 _IconBase
  37.  *  16 Old Directory from CurrentDir()
  38.  *  20 Disk Object from GetDiskObject()
  39.  *  24 Argument addresses (30*4)
  40.  * 144 ReadArgs() return value
  41.  * 148 Task address
  42.  * 152 _GfxBase
  43.  * 156 window rastport
  44.  * 160 viewport
  45.  * 164
  46.  * 165
  47.  * 166 Memory Buffer (12 bytes)
  48.  * 178 window
  49.  * 182 value 1 (for ToolType/CLI result)
  50.  * 183 value 2 (for ToolType/CLI result)
  51.  * 184 screen rastport
  52.  * 188 iclass
  53.  * 192 icode
  54.  * 194 iqualifier
  55.  * 196 iaddress
  56.  * 200 mousex
  57.  * 202 mousey
  58.  * 204
  59.  
  60.  * The Startup code below reads two CLI Arguments/WB ToolTypes as an example
  61.  * of how to programme CLI Arguments/WB ToolTypes.
  62.  *
  63.  * Note: The CLI Arguments/WB ToolTypes are done after Startup and Library
  64.  *       opening, so there is no use for the A0 pointer (which contains
  65.  *       pr_CLI).
  66.  
  67.     suba.l    a1,a1
  68.     move.l    4.w,a6
  69.     jsr    _LVOFindTask(a6)
  70.     tst.l    d0
  71.     beq    exit
  72.     move.l    d0,a5
  73.     move.l    a5,148(a4)
  74.     tst.l    pr_CLI(a5)        ; Was this task started from CLI?
  75.     bne.s    _main            ; Yes.
  76.     lea    pr_MsgPort(a5),a0    ; No. From Workbench.
  77.     jsr    _LVOWaitPort(a6)
  78.     lea    pr_MsgPort(a5),a0
  79.     jsr    _LVOGetMsg(a6)
  80.     move.l    d0,(a4)            ; D0 = A WBStartup Message.
  81.  
  82. _main
  83.     moveq    #LIB_VER,d0
  84.         lea     dos_name(pc),a1
  85.     move.l    4.w,a6
  86.         jsr    _LVOOpenLibrary(a6)
  87.         move.l  d0,4(a4)
  88.         beq     quit
  89.  
  90.         moveq    #LIB_VER,d0
  91.         lea     int_name(pc),a1
  92.         jsr    _LVOOpenLibrary(a6)
  93.         move.l  d0,8(a4)
  94.         beq     cl_dos
  95.  
  96.         moveq    #LIB_VER,d0
  97.         lea     gfx_name(pc),a1
  98.         jsr    _LVOOpenLibrary(a6)
  99.         move.l  d0,152(a4)
  100.         beq     cl_int
  101.  
  102.         moveq    #LIB_VER,d0
  103.         lea     icon_name(pc),a1
  104.         jsr    _LVOOpenLibrary(a6)
  105.         move.l  d0,12(a4)
  106.         beq     cl_gfx
  107.  
  108.  * Check the ToolTypes/CLI Arguments.
  109.  
  110.         move.l    (a4),a0
  111.         tst.l   a0
  112.         beq    fromcli
  113.     move.l    sm_ArgList(a0),a5
  114.         move.l  (a5),d1
  115.     beq    zero_args
  116.     move.l    4(a4),a6
  117.     jsr    _LVOCurrentDir(a6)
  118.         move.l  d0,16(a4)
  119.         move.l    wa_Name(a5),a0
  120.     move.l    12(a4),a6
  121.     jsr    _LVOGetDiskObject(a6)
  122.         move.l  d0,20(a4)
  123.         beq     zero_args
  124.         move.l    d0,a5
  125.         move.l  do_ToolTypes(a5),a5
  126.  
  127.     move.l    a5,a0
  128.         lea    ftstg0(pc),a1
  129.         jsr    _LVOFindToolType(a6)
  130.     tst.l    d0
  131.         beq.s    tt1
  132.     move.l    d0,a3
  133.     move.l    a3,a0
  134.     lea    mtstg0(pc),a1
  135.     jsr    _LVOMatchToolValue(a6)
  136.     tst.l    d0
  137.     beq.s    tto1
  138.     clr.b    182(a4)
  139.     bra.s    tt1
  140. tto1    move.l    a3,a0
  141.     lea    mtstg1(pc),a1
  142.     jsr    _LVOMatchToolValue(a6)
  143.     tst.l    d0
  144.     beq.s    tt1
  145.     move.b    #1,182(a4)
  146. tt1    move.l    a5,a0
  147.         lea    ftstg1(pc),a1
  148.         jsr    _LVOFindToolType(a6)
  149.     tst.l    d0
  150.         beq.s    tt2
  151.     move.l    d0,a3
  152.     move.l    a3,a0
  153.     lea    mtstg2(pc),a1
  154.     jsr    _LVOMatchToolValue(a6)
  155.     tst.l    d0
  156.     beq.s    tto2
  157.     clr.b    183(a4)
  158.     bra.s    tt2
  159. tto2    move.l    a3,a0
  160.     lea    mtstg3(pc),a1
  161.     jsr    _LVOMatchToolValue(a6)
  162.     tst.l    d0
  163.     beq.s    tto3
  164.     move.b    #1,183(a4)
  165.     bra.s    tt2
  166. tto3    move.l    a3,a0
  167.     lea    mtstg4(pc),a1
  168.     jsr    _LVOMatchToolValue(a6)
  169.     tst.l    d0
  170.     beq.s    tto4
  171.     move.b    #2,183(a4)
  172.     bra.s    tt2
  173. tto4    move.l    a3,a0
  174.     lea    mtstg5(pc),a1
  175.     jsr    _LVOMatchToolValue(a6)
  176.     tst.l    d0
  177.     beq.s    tt2
  178.     move.b    #3,183(a4)
  179. tt2
  180.     nop
  181.  
  182.  
  183. free_diskobj
  184.         move.l    20(a4),a0
  185.         jsr    _LVOFreeDiskObject(a6)
  186.     bra    zero_args
  187.  
  188. fromcli    lea    template(pc),a0
  189.     move.l  a0,d1
  190.         lea    24(a4),a5
  191.         move.l  a5,d2
  192.         moveq    #0,d3
  193.     move.l    4(a4),a6
  194.         jsr    _LVOReadArgs(a6)
  195.         move.l  d0,144(a4)
  196.         beq    zero_args
  197.  
  198.     move.l    (a5),a0
  199.     lea    mtstg0(pc),a1
  200.     bsr    cmpbyte
  201.     tst.l    d0
  202.     bne.s    cao1
  203.     clr.b    182(a4)
  204.     bra.s    ca1
  205. cao1    move.l    (a5),a0
  206.     lea    mtstg1(pc),a1
  207.     bsr    cmpbyte
  208.     tst.l    d0
  209.     bne.s    ca1
  210.     move.b    #1,182(a4)
  211. ca1    move.l    4(a5),a0
  212.     lea    mtstg2(pc),a1
  213.     bsr    cmpbyte
  214.     tst.l    d0
  215.     bne.s    cao2
  216.     clr.b    183(a4)
  217.     bra.s    ca2
  218. cao2    move.l    4(a5),a0
  219.     lea    mtstg3(pc),a1
  220.     bsr    cmpbyte
  221.     tst.l    d0
  222.     bne.s    cao3
  223.     move.b    #1,183(a4)
  224.     bra.s    ca2
  225. cao3    move.l    4(a5),a0
  226.     lea    mtstg4(pc),a1
  227.     bsr    cmpbyte
  228.     tst.l    d0
  229.     bne.s    cao4
  230.     move.b    #2,183(a4)
  231.     bra.s    ca2
  232. cao4    move.l    4(a5),a0
  233.     lea    mtstg5(pc),a1
  234.     bsr    cmpbyte
  235.     tst.l    d0
  236.     bne.s    ca2
  237.     move.b    #3,183(a4)
  238. ca2
  239.     nop
  240.  
  241.  
  242. free_cliargs
  243.         move.l    144(a4),d1
  244.         jsr    _LVOFreeArgs(a6)
  245.  
  246. zero_args
  247.  
  248.     suba.l    a0,a0
  249.     move.l    8(a4),a6
  250.     jsr    _LVOLockPubScreen(a6)
  251.     move.l    d0,178(a4)
  252.     move.l    d0,wndwscrn
  253.     beq    cl_icon
  254.  
  255.     suba.l    a0,a0
  256.     move.l    178(a4),a1
  257.     jsr    _LVOUnlockPubScreen(a6)
  258.  
  259.     suba.l    a0,a0
  260.     lea    wndwtags(pc),a1
  261.     jsr    _LVOOpenWindowTagList(a6)
  262.     move.l    d0,178(a4)
  263.     beq    cl_icon
  264.  
  265.     move.l    d0,a0
  266.     move.l    wd_RPort(a0),156(a4)
  267.  
  268.     move.l    wndwscrn(pc),a0
  269.     lea    sc_RastPort(a0),a1
  270.     move.l    a1,184(a4)
  271.     lea    sc_ViewPort(a0),a2
  272.     move.l    a2,160(a4)
  273.  
  274.     move.l    178(a4),a0
  275.     lea    menu0(pc),a1
  276.     move.l    8(a4),a6
  277.     jsr    _LVOSetMenuStrip(a6)
  278.     tst.l    d0
  279.     beq    cl_wndw
  280.  
  281. mainloop
  282.     move.l    178(a4),a0
  283.     move.l    wd_UserPort(a0),a0
  284.     move.l    4.w,a6
  285.     jsr    _LVOWaitPort(a6)
  286.     move.l    178(a4),a0
  287.     move.l    wd_UserPort(a0),a0
  288.     jsr    _LVOGetMsg(a6)
  289.     move.l    d0,a1
  290.     move.l    im_Class(a1),188(a4)
  291.     move.w    im_Code(a1),192(a4)
  292.     move.w    im_Qualifier(a1),194(a4)
  293.     move.l    im_IAddress(a1),196(a4)
  294.     move.w    im_MouseX(a1),200(a4)
  295.     move.w    im_MouseY(a1),202(a4)
  296.     jsr    _LVOReplyMsg(a6)
  297.  
  298.     cmp.l    #IDCMP_MENUPICK,188(a4)
  299.     beq.s    do_menu
  300.  
  301.     cmp.l    #IDCMP_MENUHELP,188(a4)
  302.     beq.s    do_mhelp
  303.  
  304.     cmp.l    #IDCMP_CLOSEWINDOW,188(a4)
  305.     beq.s    cl_menu
  306.  
  307.     bra.s    mainloop
  308.  
  309. do_menu    cmp.w    #$F800,192(a4)
  310.     beq.s    do_nothing
  311.     cmp.w    #$F820,192(a4)
  312.     beq.s    do_nothing
  313.     cmp.w    #$40,192(a4)
  314.     beq.s    do_nothing
  315.     cmp.w    #$840,192(a4)
  316.     beq.s    do_nothing
  317.     cmp.w    #$F860,192(a4)
  318.     beq.s    do_nothing
  319.     cmp.w    #$F801,192(a4)
  320.     beq.s    do_nothing
  321.     cmp.w    #$F821,192(a4)
  322.     beq.s    do_nothing
  323.     cmp.w    #$F841,192(a4)
  324.     beq.s    do_nothing
  325.     cmp.w    #$F861,192(a4)
  326.     beq.s    do_nothing
  327.  
  328.     bra    mainloop
  329.  
  330. do_nothing
  331.  
  332.     bra    mainloop
  333.  
  334. do_mhelp
  335.  
  336.     bra    mainloop
  337.  
  338.  
  339. cl_menu    move.l    178(a4),a0
  340.     move.l    8(a4),a6
  341.     jsr    _LVOClearMenuStrip(a6)
  342.  
  343. cl_wndw    move.l    178(a4),a0
  344.     move.l    8(a4),a6
  345.     jsr    _LVOCloseWindow(a6)
  346.  
  347. cl_icon    move.l  12(a4),a1
  348.     move.l    4.w,a6
  349.         jsr    _LVOCloseLibrary(a6)
  350.  
  351. cl_gfx    move.l  152(a4),a1
  352.     move.l    4.w,a6
  353.         jsr    _LVOCloseLibrary(a6)
  354.  
  355. cl_int    move.l  8(a4),a1
  356.     move.l    4.w,a6
  357.         jsr    _LVOCloseLibrary(a6)
  358.  
  359. cl_dos    move.l  4(a4),a1
  360.     move.l    4.w,a6
  361.         jsr    _LVOCloseLibrary(a6)
  362.  
  363. quit    move.l  #8000000,d0
  364.         moveq    #MEMF_CHIP,d1
  365.     move.l    4.w,a6
  366.     jsr    _LVOAllocMem(a6)
  367.     tst.l    d0
  368.     beq.s    cleanup
  369.     move.l    d0,a1
  370.     move.l    #8000000,d0
  371.     jsr    _LVOFreeMem(a6)
  372. cleanup    tst.l    (a4)
  373.     beq.s    exit            ; Exit - Task was started from CLI.
  374.     move.l    4.w,a6
  375.     jsr    _LVOForbid(a6)
  376.     move.l    (a4),a1            ; Reply to the WB Startup Message and
  377.     jsr    _LVOReplyMsg(a6)    ; Exit - Task was started from WB.
  378. exit    moveq    #0,d0
  379.     rts
  380.  
  381.  
  382.  * Sub-Routines.
  383.  
  384. cmpbyte    move.b  (a0)+,d0
  385.         move.b  (a1)+,d1
  386.         tst.b   d0
  387.         beq.s   byte0
  388.         cmp.b   d1,d0
  389.         beq.s   cmpbyte
  390. byte0    sub.b   d1,d0
  391.         ext.w   d0
  392.         ext.l   d0
  393.         rts
  394.  
  395. findlen    move.l    a0,a1
  396.     moveq    #0,d0
  397. not_nil    tst.b    (a1)+
  398.     beq.s    gotlen
  399.     addq.l    #1,d0
  400.     bra.s    not_nil
  401. gotlen    rts
  402.  
  403.  
  404.  * Structure Definitions.
  405.  
  406. image3
  407.     dc.w    32,0,32,14,2
  408.     dc.l    id3
  409.     dc.b    3,0
  410.     dc.l    0
  411.  
  412. image2
  413.     dc.w    0,0,32,14,2
  414.     dc.l    id2
  415.     dc.b    3,0
  416.     dc.l    image3
  417.  
  418. image1
  419.     dc.w    32,0,32,14,2
  420.     dc.l    id1
  421.     dc.b    3,0
  422.     dc.l    0
  423.  
  424. image0
  425.     dc.w    0,0,32,14,2
  426.     dc.l    id0
  427.     dc.b    3,0
  428.     dc.l    image1
  429.  
  430. itext0
  431.     dc.b    0,1,0,0
  432.     dc.w    0,0
  433.     dc.l    topaz9,mistg0,0
  434.  
  435. itext1
  436.     dc.b    0,1,0,0
  437.     dc.w    0,0
  438.     dc.l    topaz9,mistg1,0
  439.  
  440. itext2
  441.     dc.b    0,1,0,0
  442.     dc.w    0,0
  443.     dc.l    topaz9,mistg2,0
  444.  
  445. itext3
  446.     dc.b    0,1,0,0
  447.     dc.w    0,0
  448.     dc.l    topaz9C,sistg0,0
  449.  
  450. itext4
  451.     dc.b    0,1,0,0
  452.     dc.w    0,0
  453.     dc.l    topaz9C,sistg1,0
  454.  
  455. itext5
  456.     dc.b    0,1,0,0
  457.     dc.w    0,0
  458.     dc.l    topaz9,mistg3,0
  459.  
  460. itext6
  461.     dc.b    0,1,0,0
  462.     dc.w    0,0
  463.     dc.l    topaz9,mistg4,0
  464.  
  465. itext7
  466.     dc.b    0,1,0,0
  467.     dc.w    0,0
  468.     dc.l    topaz9,mistg5,0
  469.  
  470. itext8
  471.     dc.b    0,1,0,0
  472.     dc.w    0,0
  473.     dc.l    topaz9,mistg6,0
  474.  
  475. menuitem7
  476.     dc.l    0
  477.     dc.w    0,32,230,14,HIGHIMAGE!ITEMENABLED!MENUTOGGLE
  478.     dc.l    0,image0,image2
  479.     dc.b    0,0
  480.     dc.l    0,0
  481.  
  482. menuitem6
  483.     dc.l    menuitem7
  484.     dc.w    0,20,230,10,ITEMTEXT!HIGHBOX!ITEMENABLED!COMMSEQ
  485.     dc.l    0,itext8,0
  486.     dc.b    51,0
  487.     dc.l    0,0
  488.  
  489. menuitem5
  490.     dc.l    menuitem6
  491.     dc.w    0,10,230,10,ITEMTEXT!HIGHCOMP!ITEMENABLED!COMMSEQ!CHECKIT!MENUTOGGLE
  492.     dc.l    0,itext7,0
  493.     dc.b    50,0
  494.     dc.l    0,0
  495.  
  496. menuitem4
  497.     dc.l    menuitem5
  498.     dc.w    0,0,230,10,ITEMTEXT!HIGHCOMP!ITEMENABLED!COMMSEQ!CHECKIT
  499.     dc.l    0,itext6,0
  500.     dc.b    49,0
  501.     dc.l    0,0
  502.  
  503. menu1
  504.     dc.l    0
  505.     dc.w    140,0,120,10,MENUENABLED
  506.     dc.l    mmstg1,menuitem4
  507.     dc.w    0,0,0,0
  508.  
  509. subitem1
  510.     dc.l    0
  511.     dc.w    120,10,190,10,ITEMTEXT!HIGHCOMP!ITEMENABLED!COMMSEQ
  512.     dc.l    0,itext4,0
  513.     dc.b    74,0
  514.     dc.l    0,0
  515.  
  516. subitem0
  517.     dc.l    subitem1
  518.     dc.w    120,0,190,10,ITEMTEXT!HIGHCOMP!ITEMENABLED!COMMSEQ
  519.     dc.l    0,itext3,0
  520.     dc.b    80,0
  521.     dc.l    0,0
  522.  
  523. menuitem3
  524.     dc.l    0
  525.     dc.w    0,30,120,10,ITEMTEXT!HIGHCOMP!ITEMENABLED!COMMSEQ
  526.     dc.l    0,itext5,0
  527.     dc.b    81,0
  528.     dc.l    0,0
  529.  
  530. menuitem2
  531.     dc.l    menuitem3
  532.     dc.w    0,20,120,10,ITEMTEXT!HIGHCOMP!ITEMENABLED
  533.     dc.l    0,itext2,0
  534.     dc.b    0,0
  535.     dc.l    subitem0,0
  536.  
  537. menuitem1
  538.     dc.l    menuitem2
  539.     dc.w    0,10,120,10,ITEMTEXT!HIGHCOMP!ITEMENABLED!COMMSEQ
  540.     dc.l    0,itext1,0
  541.     dc.b    83,0
  542.     dc.l    0,0
  543.  
  544. menuitem0
  545.     dc.l    menuitem1
  546.     dc.w    0,0,120,10,ITEMTEXT!HIGHCOMP!ITEMENABLED!COMMSEQ
  547.     dc.l    0,itext0,0
  548.     dc.b    76,0
  549.     dc.l    0,0
  550.  
  551. menu0
  552.     dc.l    menu1
  553.     dc.w    0,0,120,10,MENUENABLED
  554.     dc.l    mmstg0,menuitem0
  555.     dc.w    0,0,0,0
  556.  
  557. topaz9
  558.     dc.l    font_name
  559.     dc.w    9
  560.     dc.b    FS_NORMAL,FPF_ROMFONT
  561.  
  562. topaz9C
  563.     dc.l    font_name
  564.     dc.w    9
  565.     dc.b    FSF_BOLD!FSF_ITALIC,FPF_ROMFONT
  566.  
  567. wndwtags
  568.     dc.l    WA_Top,0
  569.     dc.l    WA_Left,0
  570.     dc.l    WA_Width,320
  571.     dc.l    WA_Height,100
  572.     dc.l    WA_DetailPen,0
  573.     dc.l    WA_BlockPen,1
  574.     dc.l    WA_Title,wndw_title
  575.     dc.l    WA_IDCMP,IDCMP_VANILLAKEY!IDCMP_RAWKEY!IDCMP_MOUSEBUTTONS!IDCMP_CLOSEWINDOW!IDCMP_MENUPICK!IDCMP_MENUHELP
  576.     dc.l    WA_Activate,TRUE
  577.     dc.l    WA_CloseGadget,TRUE
  578.     dc.l    WA_DepthGadget,TRUE
  579.     dc.l    WA_DragBar,TRUE
  580.     dc.l    WA_NoCareRefresh,TRUE
  581.     dc.l    WA_SmartRefresh,TRUE
  582.     dc.l    WA_PubScreen
  583. wndwscrn
  584.     dc.l    0
  585.     dc.l    TAG_DONE
  586.  
  587.  
  588.  * String Variables.
  589.  
  590. int_name    dc.b    'intuition.library',0
  591. dos_name    dc.b    'dos.library',0
  592. icon_name       dc.b    'icon.library',0,0
  593. gfx_name    dc.b    'graphics.library',0
  594. diskfont_name    dc.b    'diskfont.library',0,0
  595. utility_name    dc.b    'utility.library',0
  596. mtstg0        dc.b    'ARG_ONE',0
  597. mtstg1        dc.b    'ARG_TWO',0
  598. mtstg2        dc.b    'ARG_THREE',0
  599. mtstg3        dc.b    'ARG_FOUR',0,0
  600. mtstg4        dc.b    'ARG_FIVE',0,0
  601. mtstg5        dc.b    'ARG_SIX',0
  602. ftstg0          dc.b    'TOOLTYPE_ONE',0,0
  603. ftstg1          dc.b    'TOOLTYPE_TWO',0,0
  604. template    dc.b    'KEYWORD_ONE/K,KEYWORD_TWO/K',0
  605. wndw_title    dc.b    'Old_Menu.s',0,0
  606. font_name    dc.b    'topaz.font',0,0
  607. mmstg0        dc.b    'PROJECT',0
  608. mistg0        dc.b    'Load',0,0
  609. mistg1        dc.b    'Save',0,0
  610. mistg2        dc.b    'About',0
  611. sistg0        dc.b    'This Program',0,0
  612. sistg1        dc.b    'John White',0,0
  613. mistg3        dc.b    'Quit',0,0
  614. mmstg1        dc.b    'OPTIONS',0
  615. mistg4        dc.b    '   Tick Me',0,0
  616. mistg5        dc.b    '   Toggle Click Me',0,0
  617. mistg6        dc.b    'I Will Be Boxed',0
  618.  
  619.  
  620.  * Buffer Variables.
  621.  
  622. membuf        dcb.b    300,0
  623.  
  624.  
  625.     SECTION    GFX,DATA_C
  626.  
  627. id0
  628.     dc.l    %00000000000000000000000000000000
  629.     dc.l    %00111111111111111111111111111111
  630.     dc.l    %00111111111111111111111111111111
  631.     dc.l    %00111111111111111111111111111111
  632.     dc.l    %00111111111111111111111111111111
  633.     dc.l    %00111111111111111111111111111111
  634.     dc.l    %00111111111111111111111111111111
  635.     dc.l    %00111111111111111111111111111111
  636.     dc.l    %00111111111111111111111111111111
  637.     dc.l    %00111111111111111111111111111111
  638.     dc.l    %00111111111111111111111111111111
  639.     dc.l    %00111111111111111111111111111111
  640.     dc.l    %00111111111111111111111111111111
  641.     dc.l    %00000000000000000000000000000000
  642.  
  643.  
  644.     dc.l    %11111111111111111111111111111111
  645.     dc.l    %11111111111111111111111111111111
  646.     dc.l    %11111111111111111111111111111111
  647.     dc.l    %11111111111111111111111111111111
  648.     dc.l    %11111111111111111111111111111111
  649.     dc.l    %11111111111111111111111111111111
  650.     dc.l    %11111111111111111111111111111111
  651.     dc.l    %11111111111111111111111111111111
  652.     dc.l    %11111111111111111111111111111111
  653.     dc.l    %11111111111111111111111111111111
  654.     dc.l    %11111111111111111111111111111111
  655.     dc.l    %11111111111111111111111111111111
  656.     dc.l    %11111111111111111111111111111111
  657.     dc.l    %11111111111111111111111111111111
  658.  
  659. id1
  660.     dc.l    %00000000000000000000000000000000
  661.     dc.l    %11111111111111111111111111111100
  662.     dc.l    %11111111111111111111111111111100
  663.     dc.l    %11111111111111111111111111111100
  664.     dc.l    %11111111111111111111111111111100
  665.     dc.l    %11111111111111111111111111111100
  666.     dc.l    %11111111111111111111111111111100
  667.     dc.l    %11111111111111111111111111111100
  668.     dc.l    %11111111111111111111111111111100
  669.     dc.l    %11111111111111111111111111111100
  670.     dc.l    %11111111111111111111111111111100
  671.     dc.l    %11111111111111111111111111111100
  672.     dc.l    %11111111111111111111111111111100
  673.     dc.l    %00000000000000000000000000000000
  674.  
  675.     dc.l    %11111111111111111111111111111111
  676.     dc.l    %11111111111111111111111111111111
  677.     dc.l    %11111111111111111111111111111111
  678.     dc.l    %11111111111111111111111111111111
  679.     dc.l    %11111111111111111111111111111111
  680.     dc.l    %11111111111111111111111111111111
  681.     dc.l    %11111111111111111111111111111111
  682.     dc.l    %11111111111111111111111111111111
  683.     dc.l    %11111111111111111111111111111111
  684.     dc.l    %11111111111111111111111111111111
  685.     dc.l    %11111111111111111111111111111111
  686.     dc.l    %11111111111111111111111111111111
  687.     dc.l    %11111111111111111111111111111111
  688.     dc.l    %11111111111111111111111111111111
  689.  
  690. id2
  691.     dc.l    %00000000000000000000000000000000
  692.     dc.l    %00111111111111111111111111111111
  693.     dc.l    %00111111111111111111111111111111
  694.     dc.l    %00111111111111111111111111111111
  695.     dc.l    %00111111111111111111111111111111
  696.     dc.l    %00111111111111111111111111111111
  697.     dc.l    %00111111111111111111111111111111
  698.     dc.l    %00111111111111111111111111111111
  699.     dc.l    %00111111111111111111111111111111
  700.     dc.l    %00111111111111111111111111111111
  701.     dc.l    %00111111111111111111111111111111
  702.     dc.l    %00111111111111111111111111111111
  703.     dc.l    %00111111111111111111111111111111
  704.     dc.l    %00000000000000000000000000000000
  705.  
  706.     dc.l    %00000000000000000000000000000000
  707.     dc.l    %00111111111111111111111111111111
  708.     dc.l    %00111111111111111111111111111111
  709.     dc.l    %00111111111111111111111111111111
  710.     dc.l    %00111111111111111111111111111111
  711.     dc.l    %00111111111111111111111111111111
  712.     dc.l    %00111111111111111111111111111111
  713.     dc.l    %00111111111111111111111111111111
  714.     dc.l    %00111111111111111111111111111111
  715.     dc.l    %00111111111111111111111111111111
  716.     dc.l    %00111111111111111111111111111111
  717.     dc.l    %00111111111111111111111111111111
  718.     dc.l    %00111111111111111111111111111111
  719.     dc.l    %00000000000000000000000000000000
  720.  
  721. id3
  722.     dc.l    %00000000000000000000000000000000
  723.     dc.l    %11111111111111111111111111111100
  724.     dc.l    %11111111111111111111111111111100
  725.     dc.l    %11111111111111111111111111111100
  726.     dc.l    %11111111111111111111111111111100
  727.     dc.l    %11111111111111111111111111111100
  728.     dc.l    %11111111111111111111111111111100
  729.     dc.l    %11111111111111111111111111111100
  730.     dc.l    %11111111111111111111111111111100
  731.     dc.l    %11111111111111111111111111111100
  732.     dc.l    %11111111111111111111111111111100
  733.     dc.l    %11111111111111111111111111111100
  734.     dc.l    %11111111111111111111111111111100
  735.     dc.l    %00000000000000000000000000000000
  736.  
  737.     dc.l    %00000000000000000000000000000000
  738.     dc.l    %11111111111111111111111111111100
  739.     dc.l    %11111111111111111111111111111100
  740.     dc.l    %11111111111111111111111111111100
  741.     dc.l    %11111111111111111111111111111100
  742.     dc.l    %11111111111111111111111111111100
  743.     dc.l    %11111111111111111111111111111100
  744.     dc.l    %11111111111111111111111111111100
  745.     dc.l    %11111111111111111111111111111100
  746.     dc.l    %11111111111111111111111111111100
  747.     dc.l    %11111111111111111111111111111100
  748.     dc.l    %11111111111111111111111111111100
  749.     dc.l    %11111111111111111111111111111100
  750.     dc.l    %00000000000000000000000000000000
  751.  
  752.  
  753.     SECTION    VERSION,DATA
  754.  
  755.     dc.b    '$VER: Old_Menu.s V1.01 (22.4.2001)',0
  756.  
  757.  
  758.     END